home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / listing 4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  736 b   |  2 lines
  1. 29545 TING 4:
  2.  
  3. LDA  #200
  4. STA  $D000 ;X-kOORD.=200
  5. LDA  #20
  6. STA  $D001 ;Y-kOORD.=20
  7. LDA  #01
  8. STA  $D015 ;sPRITE 1 EIN
  9.  
  10. SEI ;iNTERRUPT SPERREN
  11. LDA  #<NEUIRQ ;vEKTOR
  12. LDX  #>NEUIRQ ;VERBIEGEN
  13. STA  $0314
  14. STX  $0315
  15. LDA  #$7F
  16. STA  $DC0D
  17. LDA  #$01
  18. STA  $D01A
  19. LDA  #$F7
  20. STA  $D012
  21. LDA  $D011
  22. AND  #$7F
  23. STA  $D011
  24. LDA  #$00
  25. STA  $3FFF
  26. CLI
  27. RTS
  28.  
  29. :NEUIRQ LDA  $D019
  30. STA  $D019
  31.  
  32. LDA  $D012
  33. CMP  #$F8 ;zEILE 248 ?
  34. BNE  NEUIRQ1
  35. LDA  #$17
  36. STA  $D011
  37. LDA  #$FF ;Ninput#CHSTER irq BEI
  38. STA  $D012 ;rASTERZEILE 255
  39. JMP  $EA81
  40.  
  41. :NEUIRQ1 CMP  #$FF ;zEILE 255 ?
  42. BNE  NEUIRQ2
  43. LDA  #$97
  44. STA  $D011 ;rAHMEN AUSSCHALTEN
  45. LDA  #$28
  46. STA  $D012
  47. JMP  $EA81
  48.  
  49. :NEUIRQ2LDA  #$1B ;nORMALZUSTAND
  50. STA  $D011 ;HERSTELLEN UND
  51. LDA  #$F8 ;irq-rOUTINEN
  52. STA  $D012 ;AUFRUFEN
  53. JMP  $EA31
  54.